home *** CD-ROM | disk | FTP | other *** search
/ Venus 7000 / darktronics.iso / Software / Service Packs / WinXPSP1.exe / pscript5.dll / 259 / 12 < prev    next >
Encoding:
Text File  |  2002-08-29  |  2.0 KB  |  30 lines
  1. %%BeginResource: file Pscript_Win_Utils_L2 5.0 0
  2. /rf/rectfill , d/fx{1 1 dtransform @ 0 ge{1 sub 0.5}{1 add -0.5}? 3 -1 $ @ 0 ge
  3. {1 sub 0.5}{1 add -0.5}? 3 1 $ 4 1 $ idtransform 4 -2 $ idtransform}b/BZ{4 -2 $
  4. snap + +S fx rf}b/rs/rectstroke , d/rc/rectclip , d/UtilsInit{currentglobal{F
  5. setglobal}if}b/scol{! setcolor}b/colspA/DeviceGray d/colspABC/DeviceRGB d
  6. /colspRefresh{colspABC setcolorspace}b/SetColSpace{colspABC setcolorspace}b
  7. /resourcestatus where{!/ColorRendering/ProcSet resourcestatus{! ! T}{F}?}{F}?
  8. not{/ColorRendering<</GetHalftoneName{currenthalftone @/HalftoneName known{
  9. /HalftoneName get}{!/none}?}bn/GetPageDeviceName{currentpagedevice @
  10. /PageDeviceName known{/PageDeviceName get @ null eq{!/none}if}{!/none}?}bn
  11. /GetSubstituteCRD{!/DefaultColorRendering/ColorRendering resourcestatus{! !
  12. /DefaultColorRendering}{(DefaultColorRendering*){cvn exit}127 string
  13. /ColorRendering resourceforall}?}bn>>/defineresource where{!/ProcSet
  14. defineresource !}{! !}?}if/buildcrdname{/ColorRendering/ProcSet findresource `
  15. mark GetHalftoneName @ type @/nametype ne ~/stringtype ne and{!/none}if(.)
  16. GetPageDeviceName @ type @/nametype ne ~/stringtype ne and{!/none}if(.)5 ^ 0 5
  17. -1 1{^ length add}for string 6 1 $ 5 ^ 5{~ 1 ^ cvs length 1 ^ length 1 ^ sub
  18. getinterval}repeat ! cvn 3 1 $ ! ! E}b/definecolorrendering{~ buildcrdname ~
  19. /ColorRendering defineresource !}b/findcolorrendering where{!}{
  20. /findcolorrendering{buildcrdname @/ColorRendering resourcestatus{! ! T}{
  21. /ColorRendering/ProcSet findresource ` GetSubstituteCRD E F}?}b}?
  22. /selectcolorrendering{findcolorrendering !/ColorRendering findresource
  23. setcolorrendering}b/G2UBegin{findresource/FontInfo get/GlyphNames2Unicode get
  24. `}bind d/G2CCBegin{findresource/FontInfo get/GlyphNames2HostCode get `}bind d
  25. /G2UEnd{E}bind d/AddFontInfoBegin{/FontInfo 8 dict @ `}bind d/AddFontInfo{
  26. /GlyphNames2Unicode 16 dict d/GlyphNames2HostCode 16 dict d}bind d
  27. /AddFontInfoEnd{E d}bind d/T0AddCFFMtx2{/CIDFont findresource/Metrics2 get ` d
  28. E}bind d
  29. %%EndResource
  30.